home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 477 / applic / quick_hc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-01  |  1004 b   |  55 lines
  1. #include <stdio.h>
  2. #include <tos.h>
  3. #include "bitmustr.c"
  4. #include "konvert.c"
  5.  
  6. void hardcopy(void);
  7. void install(void);
  8. void main(void);
  9.  
  10. void hardcopy()
  11.  
  12. { int i, j;
  13.     register int k, kb,z;
  14.     register unsigned char *screen = Logbase();
  15.     long vgl[4];
  16.     
  17.     for(i = 0; i < 25; i++, screen += 1280)
  18.     {
  19.         for (j = 0; j < 80; j++)
  20.         {
  21.             for (k = 0, kb = 0; k < 16; k++, kb += 80)
  22.                 *(((unsigned char *) vgl)+k) = *(screen+j+kb);
  23.                     for (z = 0; z <= MAXCHAR; z++)
  24.                     {
  25.                         for (k = 0; k < 4; k++)
  26.                         {
  27.                             if (vgl[k] != *((long *)(&bit_muster[z][k<<2])))
  28.                                 break;
  29.                         }
  30.                         if ( k == 4)
  31.                         {
  32.                             for (k = 1; k <= konv_liste[z][0]; k++)
  33.                                 Bconout(0,konv_liste[z][k]);
  34.                             break;
  35.                         }
  36.                     }
  37.                 if (z == MAXCHAR+1)                    
  38.                 {
  39.                     Bconout(0,' ');
  40.                 }
  41.             }
  42.             Bconout(0,'\n');
  43.     }
  44. }
  45. void install()
  46. { long *dmp_vec;
  47.   dmp_vec=0x502;
  48.   *dmp_vec=&hardcopy;
  49. }
  50.  
  51. void main()
  52. {
  53.   Supexec(&install);
  54.   Ptermres(0x1000L,0);
  55. }